home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
os2
/
fm2utils.zip
/
unlzher.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-12-22
|
946b
|
32 lines
/*
* Unlzh to directory in which file resides (for WPS drag-and-drop)
* Must pass fully qualified name of lzh file (d&d does)
*/
arg filename
if length(filename) < 2 then exit
call setlocal
pathname = filename
pathname = left(pathname,lastpos('\',pathname))
if pathname = '' then
do
say 'Pass the fully qualified pathname of the file, please.'
exit
end
if substr(pathname, length(pathname) - 1, 1) \= ':' then
do
pathname = left(pathname,length(pathname) - 1)
end
call directory pathname
say '['directory()'] lh x /a /s /o /e 'filename
/*
* modify this line if lh not on PATH or is named something
* besides lh.exe, or to add or remove command line switches
*/
'lh /a /s /o /e 'filename
/* open the folder where the file was just unlzhed */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
call SysSetObjectData directory(), "OPEN=DEFAULT"
call endlocal
/* Hector wuz here */